GetDate procedure

  DECLARATION:  GetDate(var Year, Month, Day, DayOfWeek : Word);

      PURPOSE:  Returns the current operating system date.

         UNIT:  DOS

      REMARKS:  Valid values are:

                        Year      =  1980..2099
                        Month     =  1..12
                        Day       =  1..31
                        DayOfWeek =  0..6 (Sunday = 0)